home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of CD …rtainment & Home Learning / Explore the World of CD Entertainment and Home Learning (Magnum Design)(Macworld)(1995).iso / *Consumer Demo CD ƒ / AOLSTUF / *AOL DEMO FINAL / 00218_Script_218 < prev    next >
Text File  |  1995-09-27  |  1KB  |  50 lines
  1. ----------AOL Preview/Demo-----------
  2. -----------September 1995------------
  3.  
  4. on InitDemo
  5.   puppetSprite 21,1
  6.   set the castNum of sprite 21 to cast "Main Menu.btn"
  7.   puppetSprite 21,0
  8. end
  9.  
  10. on goConsDemo  
  11.   go to movie "Consumer Demo CD:*Consumer Demo CD É:*consDemo"
  12. end
  13.  
  14. on goAOLPreview
  15.   global gThisMarkerName
  16.   set gThisMarkerName = "AOL Preview"
  17.   goMarker "AOL Preview"  
  18. end
  19.  
  20. on QuitIntro  
  21.   quit
  22. end
  23.  
  24. on goMarker markerName
  25.   global gLastMarkerName,gThisMarkerName
  26.   set gLastMarkerName = gThisMarkerName
  27.   go markerName
  28.   set gThisMarkerName = markerName
  29. end
  30.  
  31. on videoStop
  32.   global gLastMarkerName,gThisMarkerName
  33.   go gLastMarkerName
  34. end
  35.  
  36. on btnDown
  37.   global gThisButton
  38.   set gThisButton = the clickOn
  39.   
  40.   puppetsprite 21,1 --Main Menu btn
  41.   set the castNum of sprite 21 to cast "Main Menu.btnDk"
  42.   updateStage
  43.   repeat with i= 1 to 30
  44.     put the ticks
  45.   end repeat
  46.   set the castNum of sprite 21 to cast "Main Menu.btn"
  47.   --the castNum of sprite whichSprite
  48.   puppetsprite 21,0 --Main Menu btn
  49.   UpdateStage
  50. end